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by Timothy *„ Bart 

In LISP 1«5 special forms ere used for three logically separate 
purposes: a) to reacit the clist v b) to allow function* to have est 
indefinite number of itrgnsentSt and c) to keep arguments from being 
evaluated o 

New LISP Interpreters can easily satisfy need (a) by making the 
allst a S?BCIAL-type or APVAJ>type entity « Usee |b) end <c) can be 
replaced by incorporating a MACRO instruction expander In define . X 
am proposing such an expander * 

la The property list of a macro instruction will have the indicator 
MACRO followed by a function of one crgtiuent, a form beginning with the 
macro* a nan* and vhose value will replace the original form in all func- 
tion definitions* 

2« The fitoctlon pvacftptll will define macro's just as define [I] 
defines functions » 

3o i fflne will be modified to taake macro expansions 

Examples t 

I. The easting FOCPR cg£££ may be replaced by the fiacre definitions 

MACRO (( 

<C8IIQ (LAMBDA (POBM) (ttJI <QO0TE CSIT)<LIST (QUOTE QD0TK)<CAI3R VOtt)) 

<CADDR I02M)))> 

» 
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2a A new macro at&flh will generate the form found frequently in 
PBGC's: 

x :■ cone I form ;x J 
using Che macro stash . one might write Instead of the above: 

(STASH ?OBM X)„ 
Stash nay be defined by; 
MACBO « 

(3TASR (LAMBDA (POBOOIST 1Q00IB SETQHCAJ*R PORMXUST (COM3 (CADE POSH) 
(CADAR POEM))) »> 
)) 

3„ Raw macro* nay be defined in tame of old. enter is a macro 
for adding a new entry to the table (dotted pairs) stored as the value 
of a program variable 

enter[foxm] N ^° Ust(StASBillstiC()Me;cadr[form);caddr[fom]]; 

cadddr[foxu]] 

Znelcentally, use of macro* will alleviate the present difficulty 
resulting from the 90 LISP compiler's oaly knowing about those fcxprs 
In existence at its birth, 

the macro defining function g^ssil) *•• sssiiy defined i 
macrotlj a deflist[l;MACBO] 

The new define is a little harder: 
dsfioeUl-5 dsfllstCmdef(l);nPt) 
■oaf [1] m I 

atari I J -*lj 

eg{cartlJ;QO0n] -»lj 

member [certl J sdAJODA LAW, PB0O)] ~+ ■' 

con*[car[lljcou«lcedr[l]{mdef[caddr[lJ]Jlj 
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Setfrarll] ;MACBO] * > ••tde.-:Lge&[car[l J ; -IfcXO] 
U)) 

k The macro for select- illustrates the use of m-ieros as a means 
ox aUowir-; > e unc£ioas of an arbtcr.ir> nu&te:: of argumeiiue: 

afticc;:[torail « MliJ; 
list r liat ! 14HBDA; list f g] t •: oo« [CffJD ; 
rcjpHs fc 1 c*. « 'r I Co c.a] ;\\ 1 1 j ; 

loullicdeHn-* Ilst|T;car[l31; 

T-> Mst(U«c(BQ;£,-c*«rU)];ca4l&rI:LjIJ]) 
JJ;cadv[£c Tail j[gen3ym[] ) 
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